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VOYAGER [Psssssssssescoesscéscocsssgse 


Le nois d'août 1989 nous a permis d'assister à un exploit technologique 
resarquoble: la sonde spatiale VOYAGER II après un périple de 7,18 milliards de 
kilomètres informe Les Terriens sur la nature de La planète Neptune. Le plus 
étonnant dans cette histoire est de constater que la sonde a été conçuavec la 
technologie des années 78. La caméra qui nous envoie des images de Neptune est 
soins perfectionnéeque Les modèles courants vendus dans les magasins 
d'aujourd'hui. Il est assez stupéfiant d'apprendre que l'ordinateur de bord 
possède un mémoire vive de 30K seulement... Le OL de base en a 4 fois plus! 


En avril 1998, VOYAGER sera dans la possibilité de prendre pour la première 
fois une photo de notre système solaire avec toutes les planètes visibles. Vers 
l'an 2828, La Terre perdra le contact avec la sonde. En L'an 28391, elle 
passera à 3,21 années-luaière, soit 30,4 millions de ka, de Proxima du 
Centaure, l'étoile la plus proche de La Terre tandis qu'en l'an 2%68%, elle se 
ræprochera de Sirius, L'étoile La plus brillante vue de la Terre... 


L'oncle CLIVE fait parler de Lui dons PC MAGAZINE. 


On rapporte que lors d'une entrevue, un journaliste demande à CLIVE SINCLAIR la 
question suivante: Pourquoi avoir choisi un microprocesseur &bits (le 288) 
pour votre 288? Et Clive donna Le réponse suivante: Parce que j'en ai pas 
trouvé de d-bits que j'aimais! 

(PC agazine, aoùt 89, INSIDE TRACK, p. 79 


BES SINCLAIR A TORONTO. srssnesennsnssses 


Si vous avez un modes, vous pouvez contacter un babillard électronique avec une 
section spéciale pour Les ordinateurs SINCLAIR (2x81/2868/Q) . IL s'agit du 
TIBM UIZARO BBS au numéro 416-743-6783. It est en opération 24hrespar jour, 7 
jours sur 7. 


Quais, le monde des magazines SINCLAIRiens est dans le très aince. En fait, il 
n'y a plus qu'un seul iaportont aux Etats-Unis, il s'agit de UPDATE MOVIE, 
l'abonnesent est S18US pour un í on (dnos). 


Içi au CANADA, à part de OL DOC bien sûr il y a Le bulletin SINC-LIWK du club 
SINCLAIR de TORONTO. L'abonnement au bulletin est seulement de SI2CAN (nos) . 


UPORTE nogazines1317 Stratford Ave. Ponana City FL 32484 USA 
SINC-LIMK(;14 Richose Court, Scarborough Ontario, NIK 2Y1 


HORLOGE._BAS er 


HORLOGE _BAS est un utilitaire qui facilite la mise à jour de 
l'horloge interne du QL. 


Le principe du programme est sisple. Avec l'aide des touches 
curseurs € €- et -} ) et La barre ESPACE ( ou la touche 
ENTER }, on ajuste les paranètres DATE et HEURE. Une fois 
terminée, un fichier HORL_DAT, contenant la date et l'heure, 
est écrit sur FLP{. Ce fichier sera lu, lors de la prochaine 
utilisation de HORLOGE _BAS. On aura alors tout sispiement à 
ajuster le JOUR et l'heure si on le désire. 


Avant d'utiliser HORLOGE BAS, il faut créer le fichier 
HORL_DAT original. On peut procéder de ta façon suivante: 


10 OPEN_NEU #5,flpi_horl_dat 

28 PRINT #5,"181189": REHork nois/jour/année 
39 PRINT #5,"1988" : RElark heure/sinute 

40 CLOSE #5 


Si ce programme est compilé avec TURBO ou QLIBERATOR par 
exenple, il est facile d'insérer un Ligne du genre EXEC_U 
FLP1_HORLOGE EXU pour mettre l'horloge à jour dans le 
programme BOOT. Une fois terminé , le progranne BOOT 
poursuit son exécution. 


) HORLOGE BAS par R6-089 pour AL DOC 


100 REMark mise à jour de l'horloge ALienne 

110 REMark fée Réal Gagnon MTL pour QL DOC 

120 REMark Logiciel Dosaine Publique pour le SINCLAIR 8L 
130 : 


140 LET dev$="flpi " 

150 DPEN#7, con 260x110a120x30 

160 PAPERE, 7,2,2:CSIZE 47,2, 0: INKA7, 2: BORDER#7, 2, 7:CLS47 

170 PRINTET." $ HORLOGE vi RGB? $ “:ÎNKA7,7 

175 OVER#7, L:CURSOR#7, 1, 1:PRINT7," $ HORLOGE vi RG89 4": INK#7,0 
177 CURSORE 0,2: UNDERA? , i:PRINTE?," “VERET, 0 
180 UNDER#7, 0: PRINT #7,"€- & -> "\* changent la valeur" 

190 PRINT 47, "CENTER] ou CESPACE]"\" valident la valeur" 


200 : 

210 lecture_horl_dat 

220 sodifie date : sodifie_ heure 
a aise_a_jour du L : ecriture_horl_dat 


250 DEFine PROCedure lecture horl dat 
260 OPEN #8, dev$&"horl dat" 

270 INPUTHB, anc_dat$;anc_heu$ 

280 CLOSES” 

290 END DEFine 


00 : 

310 DEF ine PROCedure lirie date 

320 s$=" : AT#7,6,0 : PRINT i "DATE (ma - jj - aa)" 

330 PRINT #7, 10 8,anc Pt TO 2)ls$kanc dat$ {3 10 pksStanc. dat$(5 T0) 
340 n dat$=entree vallanc _dat$,3,7,12,31,99,1) 

350 ERD DEF ine 


370 DEF ine PROCedure modifie heure 

380 AT#7,B,0 : PRINT#7, "HEURE (hh : en)" 

390 PRINTAJ, TD Banc heu$(1 TO 28" : "kanc heu$t3 TD 4) 
400 n heu$=entree val$(anc_heu$,2,9, 2, 59,0,0) 

410 END DEF ine 


430 DEF ine PROCedure aise a jour du 
440 SDATE "19"kn dat$(5 TO &),n UN TO 2), n_dat$(3 T0 4), 


n_heu$(} TO 2),n_heu$(3 TO 4),0 
450 END DEFine 


470 DEFine PROCedure ecriture_horl_dat 
480 DELETE dev$&"horl dat" 

490 OPEN NEW #B,dev$&”horl_dat’ 

500 PRINT#8,n_ dat$\n_ heu$ 

S10 CLOSE48" 

920 END DEFine 


540 DEFine FuNction entree val$ (orig$,combien,ligne,liai,lia2,lins,nin} 
550 FOR boucle:0 TO cosbien-| 

360  colonne=8+(bouclet5): AT#7,ligne,colonne : PAPER#7,7 

570 xxx ar g9 lou 1642 FO F2) 2) 

380 IF xxxCIO:PRINTH#7, "0" 

590 PRINT #7,xxx 


600  REPeat | 
610 touche= co E(INKEY$(#7,-1)) 
620 SELect ON touche 


b30 =192 

640 IF xxx)min 5 xxx=xxx-Í 

690 =200 

&b0 SELect ON boucle 

670 z0: IF xxx<lini : xxxzxxxti 
680 2e IF xxxClin2 : xxx=xxx +1 
690 =2; IF xxx(lias : xxx=xxx+Í 
700 END SELect 


710 =10,32: BEEP 5,100: EXIT loop 

720 END SELect 

730 AT#7, ligne, colonne 

140 IF xxClO:PRINTA?, "0"; 

730 PRENTA7,xxx 

760 END REPeat loop 

170 IF xxx(10 

780 orig$({(bouclet2}+1) TD(bouclet2)+21="0"4xxx 
ELSE 


L 

800 orig$({(boucle$2)+1) TD(houclet2}+2)=xxx 
END IF 

820 END FOR boucle 


830 PAPER#7,7,2,2 : RETurn orig$ 
840 END DEFine 


ETAT_BIN ét 


Ce nouveau mot-clé S-Basic peut vous aider dans ls 
aanipulation de vos fichiers. En effet, un des désavantages 
du S-Basic est que, lorsqu'on veut faire une opération sur 
un fichier (copie, ouverture etc...) et que celui-ci 
n'existe pas, le S-Basic s'arrête avec une erreur. Ce n'est 
pas grave lorsqu'on travaille en mode directe, bais c'est 
enbétant dans un progranse, car l'erreur va arrêter le 
prograane. ETAT est une nouvelle fonction qui vous pernettra 
à tester l'état d'un fichier avant de faire une opération 
essus. 


Le nouveau mot-clé se charge par: 
arRESPR (280) : LBYTES <unité>_etat_bin,a:CALL a 


TE disposez à ce moment d’une nouvelle fonction, appelée 


Syntaxe: ETAT (“non_du_fichier")3; où nos_du_fichier doit 
être Le nos du fichier à tester, y compris le nos de l'unité 
aicrodrive, disquette ou randisque, Ce non doit être compris 
entre gquillenets et entre parenthèses. Cependant, on peut 
utiliser aussi un non de variable, qui contient le noa du 
fichier. Dans ce cas, il ne faut plus mettre les guillenets 
- sais il faut toujours mettre les parenthèses (v. exeaple 
2). Le nouveau mot-clé ETAT est une fonction. IL faut donc 
l'utiliser dans des lignes du genre: PRINT ETAT (‘non du 
fichier‘) ou LET a=ETAT('Non du fichier‘). La fonction ETAT 
vous renverra un code d'erreur, Si ce code est égal à 9, le 
fichier en question existe sur l'unité en question. Sinon, 
La valeur renvoyée par ETAT correspond aux différents codes 
d'erreur du 0D0S. Vous trouverez dans te manuel du aL 
(section 'CONCEPTS' - titre ‘Error Handling’) le sens de 
chacun des codes d'erreur (négatifs) ren‘voyés. 


EXENPLES D'UTILISATION 
Exenple.i Utilisation en node direct: 
PRINT ETAT('adul_coucou')} 
Ceci va iapriser un chiffre à l'écran, qui correspond au 
code d'erreur. 


Exenple 2: On denande le non d'un fichier à copier, source 

et destination: 

18 INPUT “Vous voulez copier quel fichier ?°1a$ 

20 testazETAT (a$) 

30 IF testat>8 THEN PRINT "Ce fichier n'existe pas!°: 
GOTO 18 

48 INPUT “Copier vers quel fichier?" ;b$ 

50 testbzETAT (b$) 

60 IF testb(>-7 THEN PRINT "Ce fichier existe déjà ou 
est en usage!” :COTO 40 

70 COPY a$ TO b$ 


ETAT BIN de W. Lenerz (QLCF) 


CETRELSTSETESE ON EE ETES EEE 
1 ETAT BIN 1 


t 
t 
Vecteur pour lier gots dans la liste 
des mots S-basic 
Al pointe vers le mots-clé 
nombre de procédures 
fin des procèdures 
nosbre de fonctions 
pointeur vers début de la routine 
longueur du nom 
no 
fin du bloc de définition 
vecteur pour chercher un paramètre alpha, qui 
est mis sur le pile, avec un mot indiquant 
sa longueur. Ce paramètre, c’est le non du fichier 
Si erreur: on sort 
D3 contient le nombre de paramètres 
si (> de 1, il y a une erreur: on sort 
Al (et maintenant A2) pointe vers la pile, par ns 
à Ab. En additionnant Ab, A2 en devient indépendan 
D2 contient le mot indiquant sa longueur 


et on le transfère dans le buffer 
uis on transfère le nom du fichier dans le 


Bret. qu’on va utiliser pour ouvrir 
le fichier 


et on tente d'ouvrir le fichier 


on referme le fichier 


$3B{Ab) contient la pile S-Basic 
on se fait de la place 
el on y met le paramètre de retour, 


D0,$00(Ab,AÏ.L) à savoir le code d'erreur contenu dans DO 


on signale qu’on va retourner un entier 


t de Ñ. Lenerz 
t source BLEF 
SEDELETEESREIEERRERSTRTÉTLREEE 
debut MOVE.W $110,A2 
LEA procs, Al 
JMP 1A2) 
procs DC.W 0 
DC. W 0 
DC. W 1 
DE. W etat-ł 
DC.B 4 
DC.B "ETAT’ 
DE. 0 
etat MOVEA.N $0116, A0 
JSR {A0) 
IST.L DO 
BNE.S sortie 
CHPI.N #1,D3 
BNE.S sortie 
MOVE.L A1,A2 
ADDA.L A6,A2 
MOVE.W (A2)+,D2 
LEA buffer A] 
MOVE.W  D2,(A1}+ 
SUBQ.W #1,D2 
boucle MOVE.B (ADi+, (A1)+ 
DBF D2, boucle 
MOVER #0,D3 
MOVE  #-1,D1 
LEA buffer, A0 
MOVEQ  #1,D0 
TRAP #2 
IST,L DO 
BNE.S sortie 
MOVER #2,D0 
TRAP i? 
sortie MOVEA.L $5B(A6),A1 
SUBG.W  #2,A1 
MOVE. A1,$005B (Ab) 
MOVE. W 
MOVEQ  #$05,D4 
MOVER  #$00,D0 
RTS 


buffer DS.L 10 
END 


et on y va 


Codes retournés par la fonction ETAT 


i 0 Dpération, oK i 
i -7 Fichier mexiste pas (not found) i 
i -8 Fichier existe déja (already exists) : 
: -9 Fichier non-disponible (in use) i 
' -11 Lecteur plein (drive full) i 
i -16 Erreur d'opération i 


Chargeur BASIC universel 


100 REMark CHARGEUR BAS 
i REMark pour QL_D0C 


130 INPUT "Où sauver les codes (ex. flp1_)?";sauve$ 
140 IF LEN(sauve$)=0: Fer 
150 PRINT "Un instant s.v. p. 


160 : 

170 RESTORE 1000 

180 sesoire=RESPR(1000):base_aesoire=mesoire 
T cospte=0 


210 REPeat boucle 

220 IF EOF:EXIT boucle 

230 READ octet:POKE memoire, octet:meaoire=meaoire+] 
240 copter =cospte+l 

250 rs 

260 END REPeat boucle 


( insérer içi les DATA nécessaires ) 


DATA pour la création de ETAT_BIN 


900 PRINT\"Une touche pour sauver "ksauve$k"ETAT_BIN * 
910 PRINT "("&comptek" octets)" 

920 PAUSE 

930 SBYTES sauve$k"etat_ bin”, base_aemoire, coapte 

940 PRINT "Ok!" 


5, 0 
1003 DATA 1, 22, 78, 144, 
1004 DATA 0, 1, 102, 40, 36, 73, 213, 206, 52, 
1005 DATA 67, 250, 0, 52, 50, 194, 83, bb, 18, 
1006 DATA Bi, 202, 255, 252, 118, 0 ; 
1007 DATA 0, 34, 112, 1, 78, bb, 74, 128, 102, 
1008 DATA 112, 2, 78, bb, 34, 110, 0, 88, 85, 
1009 DATA 45, 73, 0, 0 
1010 DATA 112, 0, 78,117, 0, 0, 0, 0, 0, 
1011 DATA 0, 0, 0, 0, 0, 0, 0, 0 


{bad or changed sedius): 


ABACUS 
Application 


X— Classement de fichiers —x* 


Dans le QL DOCHI, on présentait une nouvelle version du programe DLO_BRS qui 
sert à classer alphobétiquesent les contenusd'une disquette ou d'un pdv. Nous 
allons voir une méthode différente pour faire le même travail avec ABACUS. 


Premièrement il nous fout un petit programe SuperBASIC pour Lire le DiRectory 
et le transforser sous une forse qui peut être IMPORTer avec ABACUS. 


La façon de procéder est simple. On crée notre fichier contenant le DIRectory 
Cdirect_tap”) de façon standard. Puis on relie ce fichier en séparant chacun 
de ses éléments de façon à ce qu'ils soient acceptés par la fonction IMPORT 
d'ABROUS. 


Pour importer du texte dans ABACUS, notre texte doit se présenter de La façon 
suivante: “TEXTE 1°,"TEXTE 2°,"TEXTE 3°, etc... . Chaque chaîne de caractères 
est entourée de guillemets et séparée por une virgule. Notre fichier séparé 
ainsi se noesera DIRECT EP. 


Dans ABACUS, nous insérons la disquette/cartouche contenant le fichier 
DIRECT EXP. 


Nous faisons F3-F-I-direct_ep-{ENTER)-{ENTER} . 


Le contenu devrait apparaitre à l'écran. La prochaine étape consiste à classer 
por ordre alphabétique le nos de fichier avec la cossande ORDER. 


Nous faisons F3-0-{ENTER}-{ENTER)-{ENTER} . 


L'étape suivante consiste à utiliser la cossande COPY pour mettre nos fichiers 
en colonnes. À ce aoment, notre imagination est Libre de placer comme bon il 
nous sesble les colonnes. 


Par exemple, si nous avons 28 fichiers, on pourrait faire 4 colonnes de 5 
fichiers. On importe Le fichier DIRECT_EXP dans ABACUS, on fait le tri 
alphabétique (SORT). Les 2 premières lignes sont pour le nos de la 
disquette/udv et le nosbre de secteurs utilisés, Les rangées 3 à 22 contiennent 
les noss de fichiers. Avec la cossande COPY, nous allons faire 4 colonnes de 5 
fichiers. 


F3-C-A3 :A7 (ENTER) -B3{ENTER} 

F3-C-AB:AL2{ENTER)-C3{ENTER} 
F3-C-A13:17(ENTER)-D3{ENTER} 
F3-C-A18:22(ENTER}-EXENTER? 


Il est possible de changer la largeur des cellules si celles-ci sont trop 
étroites pour La longueur des noss de fichiers, avec l'option WIDTH de la 
10. 


Un fois ceci fait il ne reste plus qu'à effacer le surplus qui reste dans la 
colonne À avec la commande RUBOUT A3:A22. 


> ABACUS Application par R6-089 


100 REMark DIRECTORY SORT ABACUS V1 
pe REMark par Réal Gagnon 


130 REPeat debut 

140 INPUT ‘Le Are de quel DEVICE? (ex. fipl } ?,,sedius$ 
150 IF sediua$="’:PRINT "Retour au SuperBASIC.? :STOP 

160 IF aediua$(i TO 3) INSTR ’advfipfdkhdk’:EXIT debut 

de END REPeat debut 


190 DELETE aediua$t' direct EXP? 
200 DELETE sediua$k’direct_TNP' 
210 OPEN NEW #6,aediua$&” direct _TMP”’ 
220 DIR #6,sedius$ 

230 CLOSE #6 

240 : 


250 OPEN#G, mediua$t’ direct_THP’ 
260 OPEN NEN47,sediua$t' direct EXP’ 
270 PRINT "Maaa"; 

280 REPeat BOUCLE 

290  INPUT6,FICHIERS 

300 PRINT ":*"; 

310 IF FICHIERS==""direct_tap*’ 
320 END REPeat BOUCLE 

330 END IF 

340 IF EOF(H6) 

350 CLOSE #6: CLOSE#7 

360 EXIT BOUCLE 

370 END IF 

360 PRINTEZ, "FICHIERS; " "5", "5 
370 END REPeat BOUÈLE 


410 PRINT 
420 PRINT "OK Terainé!" 


Un programme 
multi-täche 
LE par U. Lenerz 
CGLCF) 
MAJI EXE est un petit logiciel supposé tourner en 
aultitéche avec QUILL. MAJI_EXE va afficher dans la zone 
d'état de QUILL le not "Haj.:”. Si vous êtes en mode 
aojuscule, il affichera deux flèches vers Le haut à côté de 
ces aots. MAJI_EXE va aussi afficher une horloge peraanente 
dans la zone d'état, Là où elle dérange le soins. 


Dans votre prograsne BOOT de QUILL, vous insérerez une ligne 
du style "EXEC unité} _HAJI_EXE' juste avant la ligne 
“EXECU unité} QUILL” (ou "EXEC Y <unité)_QLUP"). Le 
programme MAJI_EXE doit être sur l'unité, bien sur. 
HAJIc_EXE (pour HAJI court) est une version racourcie 
de HAJI, qui n'affiche pas d'horloge et qui n'affiche que 
le aot “Maj.:" suivi ou non de flèches. 


Î 
t 
1 


Que ceux qui ont une unité de disquettes ne s'affollent 
pas: MAJI EXE et HAJIc_EXE mettent un certain teeps avant 
d'appoaraitre sur l'écran. Ceci a été foit exprès; pour que 
HAJI EXE n'apporaisse pas avant que QUILL ne soit chargé. 
Avec des advs, QUILL aet dans les 8 secondes à 
s'installer, HAJI_EXE se suspend donc au début pendant 8 
secondes, afin de persettre à QUILL de s'installer. Ceux 

qui ont des disquettes peuvent varier le temps que amet 
HAJI_EXE à apparaître, en tapant les commandes suivantes 
(faire ça sur une copie de HAJI_EXE, pas sur l'original): 


18 a = RESPR(234) 

20 LBYTES (unité) _HAJI_EXE, a 

30 POKE_U a+38,xxx 

48 DELETE (unité) _MAJI_EXE 

50 SEXEC (unité) _HMAJI_EXE,a,234,58 


où xxx est un chiffre représentant xxx édiènes de 
secondes. Par conséquent, si vous voulez suspendre MAJI 
pendant 3 secondes, xxx doit être égat à 188. 


Pour HAJIC_EXE cela devient: 


18 a = RESPR(156) 

28 LBYTES unité) NAJIc_EXE, o 

30 POKE_U a+38,xxx 

48 DELETE <unité>_NAJIc_EXE 

50 SEXEC (unité) HAJIc_EXE,a,156,28 


Ne POKE_U pas des valeurs supérieures à 65536, ou 
inférieures à 8... 


/4 L'idée de ce programme n'a été inspiré par un programme 
nosné ‘Capsclock' que j'ai trouvé sur La logithèque QUANTA. 
Je ne suis fortement inspiré de ce progranse, notonsent pour 
le positionnement des fenêtres, mais j'ai écrit le code 
noi-nêse. Ÿ/ 


MAJI FXE par W. Lenerz (QLCF) 


e i 


MAJI EXE 
par W. Lenerz i 
source BLEF t 
Pikitttitittttiitittittitt 
BRA.S debut zəut au début du job 
DEL ‘#oif’ entête standard 
DL. W $4AFB 
DC.H 4 
DC.N "Maj: nom du job 
DVE #11,D0 
semut Aven oio TRAP 1,D0-11 ($08 hex): changement de 
MOVEQ 401,2 priorité du job. D2 contient la nou- 


TRAP #01 velle priorité:1 (la plus basse) 


boucle 


suppri 
M 


hor lo 


#08, LG 
#01,D1 
#400, D3 
ALAI 
4501 
$00CB, A2 
fent, À 
(A2) 
A0,A5 
$0ÒC8, A2 
fen2, A1 
(A2) 
A0, A4 
Ab; Àb 
A4! AO 
#$i1,D0 
#s00,DI 
#-501,D3 
4503 
4507,00 
#$04, D2 
#-501,03 
ma)j,Al 


#$0 
$00028088, DO 


#$03 


4$29,D0 
#504,D1 
#-$01,D3 
#503 
hor lo 
#$07,D0 
#$02,D2 
#-$01,D3 
espace, Ai 
#$03 


4513, 0 
#s01 


$00EC, A2 
pile Al 
(A2) 


#-$01,D3 


TRAP i, DO=8 :on suspend le job pen- 
dant 400/60è de secondes pour peraet- 
tre à Quill de se charger. Ceux avec 
des disquettes peuvent raccourcir Ça 


établissement de la ière fenetre 


A5=ID canal tère fen. 


établissement de la 28 fen. 
A4=ID canal 2ère fen. 


TRAP 3, DO=$11: e e du 
curseur dans la 2è fen. 
Di= No. de colonne 


TRAP 3, D0=7: envoi d’une chaine 
d’octels. D2 contient le nombre d’oc- 
tets à envoyer, A0 1’ID du canal 


si contenu de 28088h =D0 (=0) alors 
on est en minuscules et on saute 

à supprime’. Sinon on affiche 44” 
TRAP 3, D0=$29: 

On aet l'encre en blanc (Di) 


On envait #4”, TRAP 3, DO=7 
Ai contient l’adresse du début de 
la chaîne 


On reset l'encre au vert 


et on saute à l'horloge 
on supprime la flèche en iapriaant 
deux espaces 


début de l'horloge 

on cherche l’heure, ds D) 
aaintenant, on convertit la date 
dans Di en ASCII 

vecteur concerné 

debut de la pile qui est à l'envers 

et on convertit la date (ds D1) 


debut de la pile 


puis on affiche la date 


et on positionne le curseur 
Di = col. curseur 


TRAP  #$03 
MOVER  #$08,D0 on va suspendre le job 
MOVEQ #-$01,D] pendant 5/60 sec 


TRAP  #sbi 
BRAS boucle 
i Définition de la fenetre 
fen! DC.B 0 couleur bord 
DC.B 0 largeur bord 
DC.B 0 soler papier 
DC.B 7 couleur encre 
DC. W 120 largeur 
a re aled 
; coord. x du coin gauche F 
DC. W 246 n Li " 3 u sup 
fen? DC.B 0 définition fenetre 2 
DC.B 0 coame ci-haut... 
DC.B 0 
DC.B 4 
DC. W 34 
DC. W 10 
DC.N 114 
DC.W 234 
taj DC.B 'Maj.: ? 
fleche Je 44° 
espace DE, Le 
pace BRW 
DC.L 0,0,0,0,0 
piie DEL 
pseudo DC.L 
END 


> Chargeur universel SuperBASIC 


100 REMark CHARGEUR BAS 
110 REMark pour QL DOC 
120 : 


130 INPUT "Où sauver les codes (ex. flpl }?";sauve$ 
140 IF LEN(sauve$)=0:sauve$="flpl " 
190 PRINT "Un instant 5,v.p."; 


160 : 

170 RESTORE 1000 

180 aenoire=RESPR(1000):base_aenoire:seaoire 
190 coapte=0 

200 : 


210 REPeat boucle 

220 IF EDF:EXIT boucle 

230 READ octet:PDKE menoire,actet:agmoire=menviret] 
240 cospte=coapte+i 

250 PRINT es. 

260 END REPeat boucle 


> Insérez içi les lignes DATA < 


DATA pour la création de NAJI_EXE 


900 PRINT \"Une touche pour sauver “ksauve$k"NAJI_EXE" 
910 PRINT "("écosptet" octets)" 

915 PAUSE 

920 SEXEC sauve$&"maji_exe",base_aeaoire, coapte, 50 
925 PRINT “Ok!” 


930 : 

1000 DATA 96, 12, 87, 111, 108, 102, 74, 251, 0, 4 
1001 DATA 77, 97, 106, 105, 112, 11, 114, 295, 116, 1 
1002 DATA 78, 65, 112, 8 

1003 DATA 147, 201, 78, 65, 52, 120, 0, 200, 67, 250 
1004 DATA 0! 146, 78, 146, 42, 72, 52, 120, 0, 200 
1005 DATA 67, 250, 0, 146, 78, 146, 40, 72, 157, 20b 
1006 DATA 32, 76, 112, 17,114, 0, 118, 255, 78, 67 
1007 DATA 112, 7, 116, 6, 118, 255, 67, 250, 0, 132 
1008 DATA 78, 87, 176, 57, 0, 2, 128, 13b, 103, 30 
1009 DATA 112, 41, 114, 7, 118, 255, 78, 67, 112, 7 
1010 DATA 118, 2, 118, 255, 67, 250, 0, 110, 78, 67 
joit DATA 112, 41, 114, 4,118, 255, 78, 67, 96, 12 
1012 DATA 112, 7, 116, 2, 118, 255, 67, 250, 0, 90 
1013 DATA 78, 67, 112, 19, 78, 65, 52, 120, 0, 256 
1014 DATA 67, 250, O, 102, 78, 146, 148, 130, 67, 250 
1015 DATA 0, 94, 146, 252, 0, 22, 32, 117,112, 7 
1016 DATA 52, 25, 118, 255, 78, 67, 112, 17, 114, 0 
1017 DATA 118, 255, 78, 67,112, 8, 114, 255, 118, 5 
1018 DATA 147, 201, 78, 65, 9b, 130, 0, 0, 0, 7 
1019 DATA 0, 120, 0, 10, 0, 162, 0, 246, 0 


1020 DATA 0, 4, 0, 54, 10, 0, 

1021 DATA 77, 97, 106, 46, 58, 32, 190, 190, 32, 32 
1022 DATA 0, O0, 0, 0, 0, 0, 0, 0, 0, 0 
1023 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 
1024 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 
1025 DATA 0, O 0, 0, 0, 0, 0, 0, 0, 0 


DATA pour la création de MAJIC EXE 


900 PRINT \"Une touche pour sauver "ksauve$k"MAJIC_EXE" 
910 PRINT "("&comptek" octets)" 

920 PAUSE 

930 SEXEC sauve$t"MAJIC EXE",base_senoire,cospte, 20 
940 PRINT "Ok!" 


950 : 

1000 DATA 96, 14, B7, 111, 108, 102, 74, 251, 
1001 DATA 77, 97, 106, 105, 99, 0, 112, 1 
1002 DATA 116, t, 78, 65, 112, B, 114, 255, 54, 60 
1003 DATA t, 194, 147, 201, 78, 65, 52, 120, 0, 200 
1004 DATA 67, 250, 0, 82, 78, 146, 42, 72, 157, 206 
1005 DATA 32, 77, 112, 17, 114, 0, 118, 255, 78, b7 
1008 DATA 112, 7, 116, 6, 118, 253, 67, 250, 0, 68 
1007 DATA 78, 67, 176, 57, 0, 2, 128, 136, 103, 30 
1008 DATA 112, 41, 114, 7, 118, 255, 78, 67, 112, 7 
1009 DATA ilé, 2, 118, 255, 67, 250, 0, 46, 78, 67 
1010 DATA 112, 41, 114, 4, 118, 255, 78, 67, 96, 196 
1011 DATA 112, 7, 116, 2, 118, 255, 67, 250, 0, 2b 
1012 DATA 78, 67, 96, 182, 0, 0, 0, 4 0 

1013 DATA 0, 10, 0,114, 0, 236, 77, 97, 106, 46 
1014 DATA 58, 32, 190, 190, 32, 32 


TRUES ET ASTUCES 
TRUCE FF ATUCES 


UE ET ARYE 
TRES ET AST 
3S ET AStws 
TES ET ASTES 


TEE ET REA 


TRÈS ET GER + 
TRUA œT EES 
TRUCS &T a 
TRUCS ET ASTUCES 

dang 


Voici 2 coabinaisons de touches non- -docusentéasprésenteX le 
programare graphique ERSEL. 


SHIFT F3 - efface les lignes comaandes du bas de l'écran 
libérant ainsi tout l'espace pour le graphique. 


SHIFT F4 - perset de sélectionner un couleur de fond pour 
le graphique. 
A la question : Please enter backdrop colour 
nuaber ? 
On répond avec un chiffre de 8 à 7. 


Quoi de neuf au programme? 


Digital Precision annonce un nouvelle version de LICHTNING. Elle‘pour noa 
LICHTHING SPECIAL EDITION selon une tradition chère à OP. Jusqu'à 38% plus 
rapide que la version originale, LICHTNING SE se présente sur la forse 
ROM pour obtenir le aaxiaum de rapidité. Une version PROGRATE est égale- 
sent disponible, 

LIGHTNING SE … LICHNING régulier .. £25 


Le traitement de texte ultro-perforsent TEXT 87 2.88 est maintenant dis- 
ponible en version francaise auprès de son éditeur SOFTURRE &. Le prix 
est de £45. 

SOFTURRE 87,33 Savernake Road, London NU3 2JU, England 


Un cospilateur CH est sur le point de faire son apparition. ll sera 
produit par {a compagnie danoise DANSOFT, la mème qui produit le THOR WWI, 
un ordinateur cospatible QL. 

DRNSOFT, PO BOX 59, DK 1982 Copenhagen K, Dennork 


TRUES ET ASTUCES 
TRUCE #F TUCEE 
TRUE” ÆT ROMCES 
TR 5 ET ASEE 
les ET AStiws 
TES ET ASTES 


TeS ET A575 
TaN ET CELE 
TRUA zT agACES 
TRUCA ŠV #ÉTUCEES 
TRUCS ET ASTUCES 


Le VIDE n'est pas égale à ZERO... 


ABACUS considère qu'une cellule vide possède une valeur numérique de zéro 
("0"). Pour le prouver, faisons le petit exercice suivant: 


[Ri] "Cellule test A27 
{021 "Valeur de la cellule A2 -)" 
FA R 


Bon, on remarque que la foraule dans F2 retourne "8" aése si R2 est vide 
CENPTY"). Si le curseur est en R2, on peut entrer des valeurs numériques et 
vérifier que la cellule F2 reflète tes changements de valeur de A2. Si on 
efface totalement R2 avec RUBOUT A2:A2, alors F2 reprend la valeur de "8". 


Pour corriger ce petit problème, nous allons utiliser la fonction COUNT qui 
elle ne prend en Ligne de coapte les cellules vides. On remplace la formule en 
F2 par celle-çsi: IFCCOUNT (R2:AD ,A2,""). Cette foraule donnera la valeur de A2 
seulement si cette dernière est non-VIDE, sinon elle retourne un chaîne de 
cractère vide. 


La néaoire-écran du @L débute à l'adresse 131872 et occupe 
32K. Pour sauver le contenu de l'écran, nous pouvons faire 
la connande SBYTES adui_ecran,131872,32768. 


Nais ces chiffres sont difficiles à retenir. Pour nous 
faciliter la tâche, nous pouvons utiliser cet équivalent 
plus facile à se rappeler: SBYTES advl_ecran,2*17,2*15. 


Et pour charger et visualiser un écran, nous pouvons 
faire 
la comsande : LBYTES adui_ecran,2*i7 ou 

LBYTES sdui_ecran,128t11824 


DS 
QL DOC 


QL_DOC offre à ses lecteurs La possibilité 
d'obtenir des progranses faisant partie du 
domaine public. 


Le seul coût est celui des frais postaux. 
Le lecteur DOIT fournir le support sur lequel 
il veut recevoir les programmes, C'est-à-dire 
que VOUS devez fournir les sicro-cartouches ou 
les disquettes. 
#1 Disquette QL_DOC-1 

+CLAUIER_EXE ,ABACLAU_EXE , TRA2_BAS 

HORLOGE _BAS,DLO_BAS etc... 


#2 QLINK 1.556 .progronse de communication 
(partagiciel/shareuare) 


#3 LE GRAPHISTE .progranne de dessin 
à la EYE-Q 


#4 QL-IBN .lecture/écriture disquette HSD0S 


#5 JEUX-1 
„Breakout Starport 2081,N-Cruncher ,Snake 


#6 UTILITE-1 
«CST utilities, QLSUB Hulti-Boot, Convert 


#7 QLCF-1 Domino, Taquin;Othello, etc... 


